Option Explicit
'ۭqҲ
Private Sub UserForm_Initialize()
    'ոL_Data01
    Dim myAr As Variant
    'w}C
    myAr = Worksheets("L_Data01").Range("B2:C11").Value
    With ListBox1
    'wMݩ
        .Width = .Width * 3
        .ColumnCount = 2
        .List = myAr
    End With
End Sub

Private Sub CommandButton1_Click()
    With ListBox1
        MsgBox "2CB1檺ج" & .List(1, 0) & "C"
        MsgBox "2B1Cج" & .Column(1, 0) & "C"
    End With
End Sub
